home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iproj / ques6.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  85 lines
  1. VERSION 2.00
  2. Begin Form QUES6 
  3.    BackColor       =   &H00800080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Question 6"
  6.    ClientHeight    =   2715
  7.    ClientLeft      =   2340
  8.    ClientTop       =   1935
  9.    ClientWidth     =   5520
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   3120
  13.    Left            =   2280
  14.    LinkTopic       =   "QUES6"
  15.    MaxButton       =   0   'False
  16.    MDIChild        =   -1  'True
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2715
  19.    ScaleWidth      =   5520
  20.    Top             =   1590
  21.    Width           =   5640
  22.    Begin CommandButton Command2 
  23.       Cancel          =   -1  'True
  24.       Caption         =   "Cancel"
  25.       Default         =   -1  'True
  26.       Height          =   495
  27.       Left            =   1920
  28.       TabIndex        =   3
  29.       Top             =   1920
  30.       Width           =   1815
  31.    End
  32.    Begin CommandButton Command1 
  33.       Caption         =   "Easier"
  34.       Height          =   495
  35.       Index           =   0
  36.       Left            =   720
  37.       TabIndex        =   2
  38.       Top             =   1080
  39.       Width           =   1815
  40.    End
  41.    Begin CommandButton Command1 
  42.       Caption         =   "More challenging"
  43.       Height          =   495
  44.       Index           =   1
  45.       Left            =   2880
  46.       TabIndex        =   1
  47.       Top             =   1080
  48.       Width           =   1815
  49.    End
  50.    Begin Label Label1 
  51.       BackColor       =   &H00800080&
  52.       Caption         =   "Compared to a year ago, has technology made your job easier or more challenging?"
  53.       ForeColor       =   &H00FFFFFF&
  54.       Height          =   615
  55.       Left            =   360
  56.       TabIndex        =   0
  57.       Top             =   240
  58.       Width           =   4815
  59.    End
  60. End
  61.  
  62. Sub Command1_Click (index As Integer)
  63. Question6 = ""
  64. Select Case index
  65.     Case 0
  66.         Question6 = "1"
  67.     Case 1
  68.         Question6 = "2"
  69. End Select
  70. If Question6 <> "" Then
  71.     ques7.Show
  72. Else
  73.     MsgBox ("Please answer the current question before moving on!")
  74. End If
  75.  
  76. End Sub
  77.  
  78. Sub Command2_Click ()
  79.     response = MsgBox("Do you really want to close without sending in your responses?", 1, "Are you sure?")
  80.     If response = 1 Then
  81.         End
  82.     End If
  83. End Sub
  84.  
  85.